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1 ZTITL bbe - EDT condition handler’ 
MODULE EDTSHANDLER ( ! EDT condition hanndler 
gDENT = *'v04-000' ' File: HANDLER.BLI Edit: JBS1004 
: 
BEGIN 


i eeereeeeereerereeeeeeeeeteeeeeeeerereeereneeerenererenenteneeeeeeeeeeneeeee 
' 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS ICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
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® 

® 

® 
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LICEN ‘ 

SOFTWARE OR ANY OTHER ®* 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
i® OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
J 

* 

® 

* 

ft 

® 

® 

* 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
's CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 

| easuonneaeueensnoonssannneousereesueteureeentenrenebonreneseneoneseesesnens 
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' FACILITY: EDT -- The DEC Standard Editor 
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1 
i] 
ABSTRACT: 
00 Condition handler enabled for callable EDT 
99 8 ENVIRONMENT: Runs on Vax/Vms | 
90 9 AUTHOR: Sheliy T. Solomon, CREATION DATE: 09-Mar-1982 
0048 MODIFIED BY: 
0944 i 1-001 - Original. STS 09-Mar-1982 
Bote ' 1-002 - Clear re-entry flag before continueing signal. STS 11-Mar-1982 
ps6 ! 1-003 - Ignore severity bits so we won't miss signal and change file name. JBS 23-Feb-1983 
98 4 1-004 = Improve the appearance of the Listing. JBS 14-Jun-19 | 
0049 


EDTSHANDLER = EDT condition handler 
Declarations 
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1 MSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSHANDLER; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 
REQUIRE "EDTSRC:SYSSYM'; 


| MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 


0 reg Page 
RC JHANDLER.B32; 1 (2 
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DTSHANDLER = EDT condition handler Ib-se -1984 31:1 VAX-11 Bliss-32 V4.0-74 id 
EDT SHANDLER - coat ton handler for callable E 1 ~300 71387 90:34:18 DT SKSVMEHASTERSCEDT SRCTHANDLER.B32;10%" (33 
: 1 ZSBTTL ‘EDTSSHANDLER = condition handler for callable EDT’ 


uw 


GLOBAL ROUTINE EDTSSHANDLER ( ! Condition handler for callable EDT 
$1G, ' Signal arguments 
MECH, ' Mechanism arguments 
7 ! ENABLE arguments (none) 


. 
FUNCTIONAL DESCRIPTION: 


this is the condition handler for all callable EDT. It examines 
the error received. If the error is to pass the status to caller then 
the following error is returned to the caller via a setunwind. 
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Always SSS$_RESIGNAL, we never try to continue execution 
SIDE EFFECTS: 
May do an unwind to the caller of EDTSEDIT 


' 
i 
' 
i 
1 
+25 4 this handler is enabled in EDTSEDIT, the highest routine in callable 
i . 
is FORMAL PARAMETERS: 
108 i $1G An array of the signal arguments 
704 } MECH An array of the mechanism arguments 
re ENBL The arguments to the ENABLE expression, none provided 
707 { IMPLICIT INPUTS: 
20 NONE 
4 { IMPLICIT OUTPUTS: 
4 EDTS$G_REENTRY 
n i COMPLETION STATUS: 
1 
1 : 
1 : 
4 
i 
i 
: 


BEGIN 
exten, 
EDTS$G_REENTRY; 


MAP 
SIG : REF VECTOR 
MECH : REF VECTOR, 
ENBL : REF VECTOR: 

MESSAGES ((PASSTATUS)); 

IF ((.S1G [1] AND ( NOT 7)) EQL (EDT$_PASSTATUS AND ( NOT 7))) 


BEGIN 
MECH (3) = .SIG (3); ' Value to return in RO 
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EDTSHANDLER SHANDLER = EDT condition handler 
04-000 anf 


EDT 

EDTSSHANDLER = condition handler for call 
74 EDTSS$G_REENTRY = 67; 
74 SETUNWIND (); 
74 END; 
745 


RETURN (SS$_RESIGNAL); 
END; 
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00 
51 04 ac 
0 of Al 9 
00000000* 8F 79 
5 08 AC 
3 4 4" Al 
00000000G 0 4 or 
000000006 00 09 
50 0918 F 
3; Routine Size: 52 bytes, Routine Base: _EDTSCODE + 


0747 1 
0748 1 !<BLF/PAGE> 


7 
-Sep- 
able E 14-Sep- 


13 


sue 
co 006 
US 

Dd 14 

18 

B 19 

C 000 

FB 00027 

3C 000 f 1$: 
04 000 

0000 


1986 92:28:16 


! Pass status to caller 
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' continue sional 
! of routine EDTSS$HANDLER 
-TITLE EDTSHANDLER EDTSHANDLER = EDT condition handler 
“IDENT \V04-000\ 
EXTRN EDT$$G_REENTRY, EDTS_PASSTATUS 
ENTRY EDTSSHANDLER, Save nothing ; 0686 
MOVL : : 0737 
BICL3 #7, 4(R1), RO : 
CMPL RO. #<EDT$_PASSTATUS&-8> : 
BNEQ $ : 
MOVL MECH RO + 0740 
MOVL 12(R1), 12(RO) : 
MOVZBL #67, EDT$$G_REENTRY + 0741 
CLRQ = (SP) : 0742 
ALLS Hg $YSSUNWIND : 
MOVZ2WL #2528, RO + 0745 
ET 3; 0746 


K 7 
EDTSHANDLER DISHANDLER = EDT condition handler -$ep-1984 00:31: VAX-11 Bliss-32_V4.0-74 
fb u+000 aati ANDLER - condi t ba handler Tor callable E 12-80-1382 99:34:18 DISKSVMSMA ERecebT sae HANDLER.B32; fa9 
: 133 0750 ! END ! of module EDTSHANDLER 
| 751 0 ELUDOM 
-EXTRN SYSSUNWIND 

; PSECT SUMMARY 
; Name Bytes Attributes 
; EDTSCODE 52 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
; eran Symbols oooceee- Pages Processing 
: File Total Loaded Percent Mapped e 
: _$255$DUA28: :LEDT. SRCJEDT 13251 377 1 0 40 00:00.2 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
; ~$255$DUA28:CSYSLIBISTARLET.L32;1 9776 1 0 581 00:04.0 
: COMMAND QUALIFIERS 
; PLS SRPCREER OS FELD. PET LA, PT TE EE) MTRACEBACE SL LEM, 585 OLE R/O) @0B.IS OL ER MSRC$:HANDLER.B32/UPDATE=(ENH$: HANDLER 

Size 52 code + 0 data bytes 

Run Time: 00:14.6 


Elapsed Time: 00:19.8 
Lines/CPU Stay 3096 
Lexemes/CPU-Min: 8820 
Memory Used: "93 pages 
Compication Complete 
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